Invenzioni & Inventori/Invenzioni and Inventori (Eclectica Publishing) (1996).ISO/invenzio/icoinv.dir/00025_Field_25.txt

Text File | 1983-02-01 | 3KB | 148 lines

MENUPRINCIPALE
on mouseUp
  toglitutto
  tell the stage
    if the moviename = "menu.dir" and the frame < 26 then
      exit
    else
      cless
      if the colordepth <= 8 then
        viff 1,48
        updatestage
      end if
      if the moviename = "menu.dir" then
        go to frame "menu"
      else

        if the machinetype = 256 then
          go to frame "menu" of movie char 1 of the moviepath&":\invenzio\menu.dir"
        else
          go to frame "menu" of movie "INVENZIONI:INVENZIO:MENU.DIR"
        end if
      end if
    end if
  end tell
end

--------------------------------------------------------
---------------INDICE
on mouseUp
  toglitutto

  tell the stage
    if the moviename = "jukebox.dir" then
      SET THE VISIBLE OF SPRITE 39 TO FALSE
    else
      SET THE VISIBLE OF SPRITE 47 TO FALSE
    end if
    updatestage
    cambiainv  "menu","index"
  end tell
end
-------------------------------------------------------------
JUKEBOX
on mouseUp
  toglitutto
  tell the stage
    if the moviename = "jukebox.dir" then
      SET THE VISIBLE OF SPRITE 39 TO FALSE
    else

      SET THE VISIBLE OF SPRITE 47 TO FALSE
    end if
    updatestage
    cambiainv  "menu","jukebox"
  end tell
end
-----------------------------
TIMELINE
on mouseUp
  toglitutto
  tell the stage
    if the moviename = "jukebox.dir" then
      SET THE VISIBLE OF SPRITE 39 TO FALSE
    else
      SET THE VISIBLE OF SPRITE 47 TO FALSE
    end if
        updatestage
    cambiainv  "1a","timeline"
  end tell

end
--------------------------------------
VIVID
on mouseUp
  toglitutto
  tell the stage
    global nome_hd

    SET FILELIST = [ ]
    REPEAT WITH M=1 TO 999

      if the machinetype = 256 then
        SET STRADA=nome_hd&":\invenzio\libri\"
      else
        SET STRADA=nome_hd&":invenzio:libri:"
      end if

      PUT getNthFileNameInFolder(STRADA, M) INTO N
      put N
      IF N=EMPTY THEN EXIT REPEAT
      APPEND (FILELIST,N)
    END REPEAT

    if M>2 then
      global utente
      global utente_name,filename,book,men
      if objectp(men) then forget men
      set utente_name to utente
      cless
      if the moviename = "jukebox.dir" then
        SET THE VISIBLE OF SPRITE 39 TO FALSE
      else
        SET THE VISIBLE OF SPRITE 47 TO FALSE
      end if
      updatestage
      if the machinetype < 255 then
        go to movie "invenzioni:invenzio:vivid:vivid04"
      else
        go to movie  char 1 to 2 of the pathName&"\invenzio\vivid\vivid04"
      end if
    end if
  end tell
end

---------------------------------------------------
OPZIONI
on mouseUp
  toglitutto
  tell the stage to  chiamapopop
end

--------------------------------

RITORNO
on mouseUp
  toglitutto
  tell the stage
    blocca
    ritorna
  end tell
end

----------------------------------

GUIDA
on mouseUp
  toglitutto
  tell the stage
    if the moviename = "jukebox.dir" then
      SET THE VISIBLE OF SPRITE 39 TO FALSE
    else
      SET THE VISIBLE OF SPRITE 47 TO FALSE
    end if
    updatestage
    cambiainv  "menu","guida"
  end tell
end